home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
cprot20h.zip
/
CPTEST.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-07-07
|
10KB
|
293 lines
Form1
CProtect sample
Form1,
Picture1
Picture4
Label1
security file name
Start
Start timer
Cfgname
Uname1
Ucompany1
Cfgmake
Create security file
Label7
Usage
Getnames
Get Name and Company
Label8
Total
Label9
Last time
Label2
serial number
Thour
Label11
hours
Chour
Snumber
Picture5
Label12
minutes
Register
Register program!
Picture2
Picture7
Label13
seconds
Feature
Label4
access code
Label10
Times used
Ttimes
Picture6
Picture8
Regmake
Make Regcode
Checkmessage
Stopnow
Stop timer
Label3
registration code
Checkreg
Check if registered
Regcode
9 Picture10
Label14
-Code example using Cprotect with Visual Basic
Label15
Thomas Lichtneckert
Goodbye
Close
Picture3
Picture9
Label5
Uname
0 Codecheck
Label6
company
Ucompany
1 CheckCode
Check the code
Setnames
Set Name and Company
Hlpbar
FILE_NOT_FOUND
PATH_NOT_VALID
NO_PATH
NOT_REMOVABLE
DRIVE_OK
NO_ARGUMENTS
DRIVE_NOT_FLOPPYT
DRIVE_NOT_READY
DRIVE_NOT_VALID%
DRIVE_ERROR
WRONG_DISKETTE5
DRIVE_WRPROT
DRIVE_WRPROT_A
DRIVE_WRPROT_B
DISK_ISIN_A
DISK_ISIN_BO
NOT_REGISTERED
NO_REGINFO
NO_SERNUMBER
FEATURES_NOT_AVAILABLE
WRONG_CODE*
IS_REGISTERED
cpMakeRegCodeE
features
serialnum
regcodeN
cpCFGMakeF
magic
filever9
cpGetSernumt
cpRegisterProgram`
cpCheckRegCode/
cpGetRegisteredName0
cpGetRegisteredCompany.
company
cpSetRegisteredNames
cpIsRegistered
cpGetUParams
lparam=
iparam1
iparam2]
iparam3
iparam4
iparam5
cpSetUParamsM
cpSetFTime
datum
cpWhichDriveO
file"
cpDirRemove
cpStartProgram?
cpEndProgram
cpGetUStatistics
utimes
Thour.
TminO
Chour
cpGetFileinfoq
version
Text1_ChangeW
Text1u
cpMakeFile
Text1_LostFocus
Text2
versY
Command1_Click
Text4
Form_Click
Text2_ChangeQ
Cfgmake_ClickI
sernum
Feature_Change
Form_LoadI
Feature
Form_GotFocus
Regmake_Click,
fcode
Snumber
rcode
VScroll1_Change
Uname_Change
Uname1
Ucompany1
Cfgname
Setname_Click
uname
u_name
u_comph
Ucompany3
cfg_name6
u_com
Ucompany_Change
Getnames_Click
Setnames_Click
Snumber_ChangeK
Ucompany1_Change
Uname1_Change
Checkreg_Click&
Checkmessage_Change
Checkmessage
Register_Click
reg_code
Picture1_Click
Picture4_Click
Csek_Change
IndexC
CheckCode_Click
Codecheck_Change
Regcode_Change
ElsIf^
registered
CodecheckT
Start_Click
Ttimes
Stopnow_Click
times
t_hour
t_minJ
t_sec
c_hour
c_min
c_sec
Goodbye_ClickJ
Form12
Unload
Form_Unload
Cancel
totalhourf
totalmin
Totalsek
lasthour
lastMin
Lastsek
Cfgname_Change
Cfgname_hlp
Cfgname_GotFocusY
Hlpbar
Cfgmake_hlp
Feature_hlp
Regmake_hlp
Uname_hlp
Ucompany_hlp
Setnames_hlp
Getnames_hlpz
Register_hlp
Checkreg_hlp
CheckCode_hlp;
Start_hlp
Stopnow_hlpm
Goodbye_hlp
Cfgmake_GotFocus
CheckCode_GotFocus
Checkreg_GotFocus
Codecheck_hlp
Feature_GotFocus
Getnames_GotFocusq
Goodbye_GotFocus\
Regmake_GotFocus5
Setnames_GotFocus!
Start_GotFocus
Stopnow_GotFocus
Ucompany_GotFocus
Uname_GotFocus
Register_GotFocus
timef
fdate
ftime
totalsec
lastsec
Write the name of your security file here.
Press to make a new security file with a new serial number."
The feature code ( 1 - 15 ) for which you want to make a registration code."
Press to create a matching registration code."
The name of the registered user that you want in the security file."
The name of the users company"
Press to write the above names to the security file.
To retreive the user and company names from the security file.
To write the registrtation code into the security file."
To find out whether the security file contains a registration code."
Check which feature the registration code in the security file enables."
Start the usage timer and increment the 'Times used' counter."
To stop the usage timer and display usage statistics."
To quit this testprogram."
Cfgmake_Click
Regmake_Click
Feature_Change
Uname_Change
Ucompany_Change
Setnames_Click
Getnames_Click
Checkreg_Click
Program is "
registered
Register_Click
CheckCode_Click
code$ = Regcode.text
Regcode incorrect!
Fileproblems!"
t$ = "Access " + Str$(a) + " registered"
Start_Click
Stopnow_Click
Goodbye_Click
Cfgname_GotFocus
Cfgmake_GotFocus
CheckCode_GotFocus
Checkreg_GotFocus
Feature_GotFocus
Getnames_GotFocus
Goodbye_GotFocus
Regmake_GotFocus
Setnames_GotFocus
Start_GotFocus
Stopnow_GotFocus
Ucompany_GotFocus
Uname_GotFocus
Register_GotFocus